﻿Imports BE.BE

Namespace DAL
    Public Class DAL_AbogadoAseguradora

        Shared Sub altaAbogadoAseguradora(pAbogadoAseguradora As AbogadoAseguradora_BE)

            Try
                pAbogadoAseguradora.IdAbogadoAseguradora = Helper_DAL.ObtenerProximoId("abogadoaseguradora")
                Dim strcomm As String = "insert into abogadoaseguradora (id_abogadoAseguradora, id_persona, id_asegurador) values " & _
                    "(" & pAbogadoAseguradora.IdAbogadoAseguradora & "," & pAbogadoAseguradora.Id & "," & pAbogadoAseguradora.Asegurador.Id & ")"

                Helper_DAL.ExecuteNonQuery(strcomm)
            Catch ex As Exception
                Throw ex
            End Try

        End Sub


        Shared Function listarAbogadoAseguradora() As List(Of AbogadoAseguradora_BE)
            Dim mlista As New List(Of AbogadoAseguradora_BE)
            Dim mds As New DataSet
            Dim strcomm As String = "select aa.id_abogadoAseguradora, aa.id_persona, aa.id_asegurador,p.nombre, p.apellido ,p.dni ,p.fecha_nacimiento , a.cuit , a.razon_social  from abogadoAseguradora aa " & _
                 "inner join persona p " & _
                 "on aa.id_persona = p.id_persona " & _
                 "inner join asegurador a " & _
                 "on aa.id_asegurador = a.id_asegurador "

            Try
                mds = Helper_DAL.ExecuteDataset(strcomm)

                If mds.Tables(0).Rows.Count > 0 Then
                    For Each dr As DataRow In mds.Tables(0).Rows
                        Dim mAbog As New AbogadoAseguradora_BE
                        Dim maseg As New Asegurador_BE

                        mAbog.Asegurador = maseg
                        mAbog.IdAbogadoAseguradora = dr.Item(0)
                        mAbog.Id = dr.Item(1)
                        mAbog.Asegurador.Id = dr.Item(2)
                        mAbog.Nombre = dr.Item(3).ToString
                        mAbog.Apellido = dr.Item(4).ToString
                        mAbog.DNI = dr.Item(5)
                        mAbog.FechaNacimiento = dr.Item(6).ToString
                        mAbog.Asegurador.CUIT = dr.Item(7).ToString
                        mAbog.Asegurador.RazonSocial = dr.Item(8).ToString

                        mlista.Add(mAbog)
                    Next
                End If

                Return mlista
            Catch ex As Exception
                Throw ex

            End Try

        End Function
    End Class
End Namespace

